(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     70575,       1888]
NotebookOptionsPosition[     64709,       1691]
NotebookOutlinePosition[     65177,       1709]
CellTagsIndexPosition[     65134,       1706]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<tri\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"ClebschGordan", "::", "\"\<phy\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"SixJSymbol", "::", "\"\<tri\>\""}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456663504453125*^9, 3.45666350465625*^9}, 
   3.54004256367356*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "oFile", "=", 
    "\"\<C:\\\\Users\\\\FClab\\\\Rb_DFCS_data\\\\calculation\\\\Rb87_5D32.txt\
\>\""}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"output", " ", "file"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "pathname", "=", 
   "\"\<C:\\\\Users\\\\FClab\\\\Rb_DFCS_data\\\\2012-03-15\\\\\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"filename", "=", "\"\<scan-03a.txt\>\""}], ";"}], " ", 
  RowBox[{"(*", "datafile", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ExpSpecFile", "=", 
   RowBox[{"pathname", " ", "<>", " ", "filename"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dataTab", "=", " ", 
    RowBox[{"Import", "[", 
     RowBox[{"ExpSpecFile", ",", "\"\<Table\>\""}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Form", " ", "repetition", " ", "rate", " ", 
    RowBox[{"list", ".", " ", "Extract"}], " ", "from", " ", "actual", " ", 
    "data", " ", "file"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fOffsetList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fRepList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"n", "\[LessEqual]", " ", 
     RowBox[{"Length", "[", "dataTab", "]"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"fRepList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fRepList", ",", 
         RowBox[{
          RowBox[{"dataTab", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ";", 
      RowBox[{"(*", 
       RowBox[{"\"\<2\>\"", " ", "=", " ", 
        RowBox[{
        "2", "nd", " ", "column", " ", "of", " ", "the", " ", "datafile", " ",
          "contains", " ", "the", " ", "rep", " ", "rate"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"fOffsetList", "=", 
       RowBox[{"Append", "[", 
        RowBox[{"fOffsetList", ",", 
         RowBox[{
          RowBox[{"dataTab", "[", 
           RowBox[{"[", "n", "]"}], "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"n", "++"}], ";"}], "}"}]}], "]"}], ";", " ", 
  RowBox[{"Clear", "[", "n", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5407383642928085`*^9, 3.5407383651238565`*^9}, 
   3.5407384082223215`*^9, {3.5407384849037075`*^9, 3.540738535987629*^9}, {
   3.54073857516387*^9, 3.5407386491461015`*^9}, 3.540738889429845*^9, {
   3.540739613727186*^9, 3.5407396583642225`*^9}, {3.5407407128542705`*^9, 
   3.5407407141647964`*^9}, {3.540758538078827*^9, 3.540758544365627*^9}, 
   3.5408285082289248`*^9, 3.5408288115236588`*^9, {3.540830823749013*^9, 
   3.5408308240040274`*^9}, {3.5408470621667385`*^9, 
   3.5408470635467615`*^9}, {3.5408484191721563`*^9, 3.540848421664253*^9}, 
   3.540867391665065*^9, {3.540867706549403*^9, 3.5408677067990513`*^9}, {
   3.5408689224093*^9, 3.540868922939789*^9}, 3.5408690515832253`*^9, {
   3.5409154279056215`*^9, 3.5409154773359256`*^9}, {3.5409286094702816`*^9, 
   3.540928611420519*^9}, {3.541303999979823*^9, 3.5413040179359984`*^9}, {
   3.541304294813672*^9, 3.5413043220833464`*^9}, {3.541340640739972*^9, 
   3.5413406789140263`*^9}}],

Cell[CellGroupData[{

Cell["Physical Constants", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Speed of Light", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"c", "=", "29979245800"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"cm", "/", "sec"}], "*)"}]}]], "Input"],

Cell[CellGroupData[{

Cell["Planck's Constant", "Subsubtitle"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"hBar", "=", 
    RowBox[{"1.054", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "27"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"ergs", " ", "sec"}], "*)"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Boltzmann Constant", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", 
    RowBox[{"1.380658", " ", 
     SuperscriptBox["10", 
      RowBox[{"-", "16"}]]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"erg", "/", "K"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.4566596001875*^9, 3.456659625953125*^9}, {
  3.45665968075*^9, 3.456659686359375*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Atomic Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["General Parameters", "Subtitle",
 CellChangeTimes->{{3.45666146840625*^9, 3.45666147296875*^9}}],

Cell["Nuclear Spin", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"i", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4730885615*^9, 3.473088561953125*^9}, 3.53632801824225*^9, 
   3.5386065281276674`*^9, {3.5413405272058134`*^9, 3.5413405295958166`*^9}}],

Cell[CellGroupData[{

Cell["Transit Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.45666389359375*^9, 3.456663897328125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]T", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{" ", 
      RowBox[{"20", " ", 
       SuperscriptBox["10", 
        RowBox[{"-", "9"}]]}]}]], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663726421875*^9, 3.4566637388125*^9}, {
   3.45666380203125*^9, 3.456663813921875*^9}, 3.4566922269375*^9, 
   3.5366835360235*^9, 3.538523997111776*^9, {3.541044601846328*^9, 
   3.541044607914611*^9}, {3.5410453254384117`*^9, 3.5410453357186146`*^9}, {
   3.541046262449992*^9, 3.541046262777586*^9}, {3.541096360775298*^9, 
   3.5410963611497006`*^9}, {3.541097352723257*^9, 3.5410973640021296`*^9}, {
   3.541340538895829*^9, 3.5413405476258416`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", "\[Gamma]T", "]"}]], "Input",
 CellChangeTimes->{{3.5370977448424997`*^9, 3.5370977478424997`*^9}, {
  3.541046267098703*^9, 3.5410462683154793`*^9}, {3.5410973370295563`*^9, 
  3.5410973410075817`*^9}}],

Cell[BoxData["5.`*^7"], "Output",
 CellChangeTimes->{
  3.5408472851577168`*^9, 3.540848491316847*^9, 3.5408676818030453`*^9, 
   3.540867737630579*^9, 3.54086905695052*^9, 3.5409157369386396`*^9, 
   3.540918167389285*^9, 3.5409277138193674`*^9, 3.540928709135219*^9, 
   3.540928747281864*^9, 3.5409590208057566`*^9, 3.541042434371149*^9, 
   3.541044614248089*^9, 3.5410453489315605`*^9, 3.5410462688926687`*^9, 
   3.541096369916957*^9, {3.541097613120126*^9, 3.541097615647342*^9}, 
   3.541304344095652*^9, 3.5413406964240503`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Polarization", "Subsubtitle",
 CellChangeTimes->{{3.456663909203125*^9, 3.456663910671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q1", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456663912765625*^9, 3.456663917453125*^9}, 
   3.456663957921875*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"q2", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{3.4566639629375*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659860875*^9}}],

Cell["Ground State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
   3.456659752203125*^9}, 3.45665980753125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, 3.4566598095625*^9, {
   3.5413405501858454`*^9, 3.541340557835856*^9}}],

Cell[CellGroupData[{

Cell["Ground State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jGnd", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.54134056082586*^9, 
  3.541340563045863*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662908015625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinGnd", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jGnd", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxGnd", "=", 
   RowBox[{"jGnd", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}, {3.456660756828125*^9, 3.45666075759375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aGnd", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"3417341305.452145", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"From", " ", "Steck", " ", "review"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.456660680015625*^9, 
  3.456660705609375*^9}, {3.45666076115625*^9, 3.4566607615625*^9}, {
  3.47308857578125*^9, 3.473088584546875*^9}, {3.47309640846875*^9, 
  3.473096424140625*^9}, {3.536335670945375*^9, 3.53633567542975*^9}, {
  3.5399858315742908`*^9, 3.5399858502631235`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Ground State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9, {3.45666076390625*^9, 
   3.45666076546875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"bGnd", "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
  3.45666063971875*^9}, {3.45666076803125*^9, 3.456660773828125*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}}],

Cell["Intermediate State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.45665981840625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
  3.45665982178125*^9}, {3.5413405680658703`*^9, 3.541340570615874*^9}}],

Cell[CellGroupData[{

Cell["Intermediate State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jInt", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.473088588953125*^9, 
   3.47308858946875*^9}, 3.536333582476625*^9, {3.541340573075877*^9, 
   3.5413405752558804`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.456662923203125*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinInt", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jInt", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxInt", "=", 
   RowBox[{"jInt", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662936640625*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]Int", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{"26.2", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Seconds", " ", "From", " ", "Budker"}], ",", "Kimball", ",", " ",
     "DeMille"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.53668310449225*^9, 
  3.536683106007875*^9}, {3.5413405792258863`*^9, 3.5413405826658907`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Center of Gravity Energy", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Nu]Int", "=", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{"384230484468500", ",", "20"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "from", " ", "Steck"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.473088596515625*^9, 3.473088616875*^9}, {
   3.47308883840625*^9, 3.473088843484375*^9}, {3.473096433640625*^9, 
   3.473096439859375*^9}, {3.53633478836725*^9, 3.53633479311725*^9}, 
   3.536607319211*^9, {3.536607447226625*^9, 3.536607498007875*^9}, {
   3.53666646042975*^9, 3.5366664651485*^9}, {3.537893167558856*^9, 
   3.5378931893520937`*^9}, 3.5378943549667425`*^9, 3.5378974743522215`*^9, {
   3.5378985672711487`*^9, 3.53789856825395*^9}, {3.5378998431661897`*^9, 
   3.537899869374236*^9}, 3.5379017571978636`*^9, 3.538606282516619*^9, {
   3.5399857601885653`*^9, 3.5399857692989817`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine A", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
  3.45666040421875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"aInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"84718500", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
  3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
  3.4566605581875*^9, 3.4566605719375*^9}, {3.473088627078125*^9, 
  3.4730886284375*^9}, {3.473096443796875*^9, 3.473096448328125*^9}, {
  3.5363357313985*^9, 3.536335734726625*^9}, {3.536607079039125*^9, 
  3.53660709955475*^9}, {3.536666472757875*^9, 3.536666476257875*^9}, {
  3.536683146882875*^9, 3.5366831523985*^9}, {3.5372022874831247`*^9, 
  3.5372022919049997`*^9}, {3.539985799703435*^9, 3.5399858030418406`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Intermediate State Hyperfine B", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
   3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
   3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
   3.45666013296875*^9, 3.456660152140625*^9}, {3.456660398109375*^9, 
   3.45666040421875*^9}, 3.4566605775*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"bInt", "=", 
    RowBox[{"SetPrecision", "[", 
     RowBox[{"12496500", ",", "20"}], "]"}]}], " ", ";"}], 
  RowBox[{"(*", 
   RowBox[{"Hz", " ", "From", " ", "Steck"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
   3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
   3.456660078296875*^9, 3.456660092390625*^9}, {3.456660306609375*^9, 
   3.45666036596875*^9}, {3.456660407359375*^9, 3.45666043703125*^9}, {
   3.4566605581875*^9, 3.456660602203125*^9}, {3.45666063840625*^9, 
   3.45666063971875*^9}, 3.473088631296875*^9, {3.473096452546875*^9, 
   3.473096456171875*^9}, {3.536335742211*^9, 3.536335745961*^9}, {
   3.536607112711*^9, 3.536607116664125*^9}, 3.53666648311725*^9, {
   3.5366831642735*^9, 3.53668317030475*^9}, {3.5372023036862497`*^9, 
   3.5372023085924997`*^9}, {3.539985808704651*^9, 3.5399858160678635`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Parameters", "Subtitle",
 CellChangeTimes->{{3.456659852765625*^9, 3.456659887765625*^9}, {
  3.456660101109375*^9, 3.4566601018125*^9}}],

Cell["Final State S", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.45665974584375*^9, 
  3.456659752203125*^9}, {3.45665980753125*^9, 3.456659829375*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"SFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.45665975521875*^9, 3.456659757859375*^9}, {3.4566598095625*^9, 
   3.45665983434375*^9}, {3.536335431601625*^9, 3.536335431726625*^9}, 
   3.53634248861725*^9, {3.541340586285896*^9, 3.5413405882658987`*^9}}],

Cell[CellGroupData[{

Cell["Final State J", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659783546875*^9, 
  3.456659787671875*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"jFin", "=", 
   RowBox[{"N", "[", 
    FractionBox["3", "2"], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
   3.4566597779375*^9, 3.456659780921875*^9}, {3.456661545015625*^9, 
   3.456661545171875*^9}, 3.4569295484212503`*^9, {3.47308863565625*^9, 
   3.473088640640625*^9}, {3.536335439086*^9, 3.536335439226625*^9}, 
   3.5385845502476044`*^9, {3.5413405925959044`*^9, 3.5413405947559075`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State F Values", "Subsubtitle",
 CellChangeTimes->{{3.45666290321875*^9, 3.45666294725*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fMinFin", "=", 
   RowBox[{"Abs", "[", 
    RowBox[{"jFin", "-", "i"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fMaxFin", "=", 
   RowBox[{"jFin", "+", "i"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.456662861609375*^9, 3.456662890515625*^9}, {
  3.456662927125*^9, 3.456662957578125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Final State Linewidth", "Subsubtitle",
 CellChangeTimes->{{3.456659575640625*^9, 3.456659597484375*^9}, {
  3.45665970596875*^9, 3.456659711984375*^9}, {3.456659762*^9, 
  3.45665976646875*^9}, {3.456659909703125*^9, 3.45665991996875*^9}, {
  3.456659988796875*^9, 3.45665998953125*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Gamma]Fin", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{"241.", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "9"}]]}]], "]"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"Seconds", " ", "From", " ", "Heavens"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.45665971353125*^9, 3.45665971846875*^9}, {
  3.45665976928125*^9, 3.45665977578125*^9}, {3.45665992590625*^9, 
  3.45665992978125*^9}, {3.456659964359375*^9, 3.45665998015625*^9}, {
  3.4566600681875*^9, 3.45666007421875*^9}, {3.4566616303125*^9, 
  3.456661631765625*^9}, {3.4569295617493753`*^9, 3.4569295620150003`*^9}, {
  3.45951917796875*^9, 3.45951917865625*^9}, {3.536683236757875*^9, 
  3.536683244726625*^9}, {3.538582219701305*^9, 3.5385822378273416`*^9}, {
  3.5413405969159107`*^9, 3.541340602445918*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Energies, Matrix Elements and Transition Probablities", "Subtitle",
 CellChangeTimes->{{3.456681533796875*^9, 3.456681554234375*^9}}],

Cell["Formula for Calculating Energies with HFS", "Subsubtitle",
 CellChangeTimes->{{3.45666156509375*^9, 3.45666157378125*^9}, {
  3.456662570765625*^9, 3.4566625805625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Kappa]", "[", 
    RowBox[{"f_", ",", "j_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"f", 
     RowBox[{"(", 
      RowBox[{"f", "+", "1"}], ")"}]}], "-", 
    RowBox[{"j", 
     RowBox[{"(", 
      RowBox[{"j", "+", "1"}], ")"}]}], "-", 
    RowBox[{"i", 
     RowBox[{"(", 
      RowBox[{"i", "+", "1"}], ")"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.45666169846875*^9, 3.456661713*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]E", "[", 
    RowBox[{"a_", ",", "b_", ",", "f_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"j", "\[NotEqual]", " ", 
       FractionBox["1", "2"]}], "&&", 
      RowBox[{"i", "\[NotEqual]", 
       FractionBox["1", "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], "a", " ", 
       RowBox[{"\[Kappa]", "[", 
        RowBox[{"f", ",", "j"}], "]"}]}], "+", 
      RowBox[{"b", " ", 
       FractionBox[
        RowBox[{
         RowBox[{
          FractionBox["3", "4"], 
          SuperscriptBox[
           RowBox[{"\[Kappa]", "[", 
            RowBox[{"f", ",", "j"}], "]"}], "2"]}], "+", 
         RowBox[{
          FractionBox["3", "4"], 
          RowBox[{"\[Kappa]", "[", 
           RowBox[{"f", ",", "j"}], "]"}]}], "-", 
         RowBox[{"i", 
          RowBox[{"(", 
           RowBox[{"i", "+", "1"}], ")"}], "j", 
          RowBox[{"(", 
           RowBox[{"j", "+", "1"}], ")"}]}]}], 
        RowBox[{"2", " ", "i", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "i"}], "-", "1"}], ")"}], "j", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "j"}], "-", "1"}], ")"}]}]]}]}], ",", 
     RowBox[{
      FractionBox["1", "2"], "a", " ", 
      RowBox[{"\[Kappa]", "[", 
       RowBox[{"f", ",", "j"}], "]"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456661820734375*^9, 3.45666183171875*^9}, {
   3.456662393875*^9, 3.456662397109375*^9}, {3.456683422046875*^9, 
   3.456683431546875*^9}, 3.460223934290625*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToInt", "[", 
    RowBox[{"f_", ",", "fPrime_"}], "]"}], "=", 
   RowBox[{"\[Nu]Int", "-", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aGnd", ",", "bGnd", ",", "f", ",", "jGnd"}], "]"}], "+", 
    RowBox[{"\[Delta]E", "[", 
     RowBox[{"aInt", ",", "bInt", ",", "fPrime", ",", "jInt"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Nu]GndToFin", "[", 
    RowBox[{"f_", ",", "fDPrime_"}], "]"}], ":=", 
   RowBox[{"2", " ", 
    RowBox[{"Switch", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"f", ",", "fDPrime"}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"2.", ",", "0."}], "}"}], ",", "385240094977700", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"2.", ",", "1."}], "}"}], ",", "385240101727600", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"2.", ",", "2."}], "}"}], ",", "385240115692600", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"2.", ",", "3."}], "}"}], ",", "385240137803800", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"1.", ",", "0."}], "}"}], ",", "385243512320300", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"1.", ",", "1."}], "}"}], ",", "385243519070200", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"1.", ",", "2."}], "}"}], ",", "385243533031800", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"1.", ",", "3."}], "}"}], ",", "385243555144500"}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.45686233334375*^9, 3.4568623374375*^9}, 
   3.4572661415462503`*^9, {3.47308885534375*^9, 3.473088860125*^9}, {
   3.4730964853125*^9, 3.473096517875*^9}, {3.473097064765625*^9, 
   3.47309707559375*^9}, {3.536683396664125*^9, 3.53668342911725*^9}, {
   3.5385822740464134`*^9, 3.5385822762455387`*^9}, {3.538582433139513*^9, 
   3.538582435955674*^9}, {3.53858286930646*^9, 3.538583146448312*^9}, {
   3.5386057393735533`*^9, 3.5386058876180325`*^9}, {3.5386065596574707`*^9, 
   3.538606679034299*^9}, {3.538688905996657*^9, 3.5386889171506767`*^9}, {
   3.540758835009227*^9, 3.540758842232027*^9}, {3.541340605635923*^9, 
   3.5413406172159395`*^9}}],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in J Basis", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dRedJGndToInt", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"(", "4.51", ")"}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dRedJIntToFin", "=", "1"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"e", " ", "a0"}]], 
     RowBox[{"\[Sqrt]", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             FractionBox["1", "2"]}], "+", "1"}], " ", ")"}], "3", " ", 
          "hBar", " ", 
          SuperscriptBox["c", "3"]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", " ", "\[Pi]", " ", "\[Nu]6P12To8S"}], ")"}], "3"]}]],
         "2.04", " ", 
        SuperscriptBox["10", "6"]}], ")"}]}], "1.28", " ", 
     SuperscriptBox["10", "6"]}], " ", 
    RowBox[{"(*", 
     RowBox[{"Hz", "/", 
      RowBox[{"(", 
       RowBox[{"V", "/", "cm"}], ")"}]}], "*)"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.4566056364375*^9, 3.4566056744375*^9}, {
  3.456662686453125*^9, 3.456662724453125*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Reduced Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{3.4566632656875*^9}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["dRedGndToInt", 
        RowBox[{"f", ",", "fPrime"}]], "=", 
       RowBox[{"\[Sqrt]", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "fPrime"}], "+", "1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "f"}], "+", "1"}], ")"}], 
          SuperscriptBox[
           RowBox[{"SixJSymbol", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"jInt", ",", "fPrime", ",", "i"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"f", ",", "jGnd", ",", "1"}], "}"}]}], "]"}], "2"], 
          SuperscriptBox["dRedJGndToInt", "2"]}], ")"}]}]}], ";"}], ",", 
     RowBox[{"{", 
      RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456662795671875*^9, 3.456662835546875*^9}, {
  3.456663002453125*^9, 3.456663020171875*^9}, {3.5372063527331247`*^9, 
  3.5372063614518747`*^9}}],

Cell[BoxData[
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["dRedIntToFin", 
       RowBox[{"fPrime", ",", "fDPrime"}]], "=", 
      RowBox[{"\[Sqrt]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "fDPrime"}], "+", "1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "fPrime"}], "+", "1"}], ")"}], 
         SuperscriptBox[
          RowBox[{"SixJSymbol", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"jFin", ",", "fDPrime", ",", "i"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"fPrime", ",", "jInt", ",", "1"}], "}"}]}], "]"}], "2"], 
         SuperscriptBox["dRedJIntToFin", "2"]}], ")"}]}]}], ",", 
     RowBox[{"{", 
      RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.456663051265625*^9, 3.456663093375*^9}, {
   3.456663125046875*^9, 3.456663154296875*^9}, 3.456663192609375*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Matrix Elements in F Basis", "Subsubtitle",
 CellChangeTimes->{{3.456663276328125*^9, 3.456663278140625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dGndToInt", 
            RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fPrime", "-", "mPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q1", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", 
                    RowBox[{"-", "mPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"f", ",", "m"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedGndToInt", 
               RowBox[{"f", ",", "fPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"m", ",", 
            RowBox[{"-", "f"}], ",", "f"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mPrime", ",", 
          RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"f", ",", "fMinGnd", ",", "fMaxGnd"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.4566633891875*^9}, {3.456663993*^9,
   3.45666408128125*^9}, {3.45666411909375*^9, 3.456664121515625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Do", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           SubscriptBox["dIntToFin", 
            RowBox[{
            "fPrime", ",", "fDPrime", ",", "mPrime", ",", "mDPrime"}]], "=", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"-", "1"}], ")"}], 
             RowBox[{"fDPrime", "-", "mDPrime"}]], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"n", "=", "1"}], "3"], 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                "q2", "\[LeftDoubleBracket]", "n", "\[RightDoubleBracket]"}], 
                RowBox[{"ThreeJSymbol", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"fDPrime", ",", 
                    RowBox[{"-", "mDPrime"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", 
                    RowBox[{"n", "-", "2"}]}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"fPrime", ",", "mPrime"}], "}"}]}], "]"}]}], ")"}], 
              SubscriptBox["dRedIntToFin", 
               RowBox[{"fPrime", ",", "fDPrime"}]]}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"mPrime", ",", 
            RowBox[{"-", "fPrime"}], ",", "fPrime"}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"mDPrime", ",", 
          RowBox[{"-", "fDPrime"}], ",", "fDPrime"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"fDPrime", ",", "fMinFin", ",", "fMaxFin"}], "}"}]}], "]"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"fPrime", ",", "fMinInt", ",", "fMaxInt"}], "}"}]}], "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666329196875*^9, 3.456663489203125*^9}, {
  3.456664105703125*^9, 3.45666415221875*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Doppler Distribution Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"amu", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1.66053886", " ", 
      SuperscriptBox["10", 
       RowBox[{"-", "27"}]]}], ")"}], " ", 
    SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mRb", "=", 
   RowBox[{"86.909180520", " ", "amu"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", "323"}], ";"}]}], "Input",
 CellChangeTimes->{{3.456606503203125*^9, 3.4566065051875*^9}, {
   3.456664763890625*^9, 3.456664790515625*^9}, {3.473097352640625*^9, 
   3.473097368078125*^9}, {3.536605457211*^9, 3.53660545749225*^9}, 
   3.5366060920235*^9, {3.536606131101625*^9, 3.536606151414125*^9}, 
   3.53666517880475*^9, {3.5402470216155534`*^9, 3.540247090642502*^9}, {
   3.540668358386324*^9, 3.5406683636016226`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"\[Sqrt]", 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"2", " ", "kB", " ", "temp"}], "mRb"], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.45666479665625*^9, 3.456664796984375*^9}, {
  3.536606154070375*^9, 3.536606154336*^9}, {3.540740752497682*^9, 
  3.5407407534181705`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"dopplerDist", "[", "v_", "]"}], ":=", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["v", "2"], 
      SuperscriptBox["\[Alpha]", "2"]]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.540740755196741*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Parameters", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell["Offset Frequency", "Subsubtitle"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f0", "=", 
   RowBox[{"20.", " ", 
    SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"scanRange", "=", "90"}], ";"}]}], "Input",
 CellChangeTimes->{{3.536606229336*^9, 3.536606229476625*^9}, 
   3.536609033945375*^9, {3.53667308924225*^9, 3.536673089507875*^9}, {
   3.536679694632875*^9, 3.5366796956485*^9}, {3.536683666961*^9, 
   3.5366836672735*^9}, 3.5370104677487497`*^9, 3.5370325434049997`*^9, {
   3.539116492685813*^9, 3.5391164930290136`*^9}, 3.539127919839781*^9, {
   3.539999557079931*^9, 3.539999600291931*^9}, {3.540042597806141*^9, 
   3.5400425992725315`*^9}, 3.5400659159530563`*^9}],

Cell[CellGroupData[{

Cell["Rep Rate Range", "Subsubtitle",
 CellChangeTimes->{{3.45666493915625*^9, 3.456664941796875*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"fRepMin", "=", "2.500000002502500116825103759765625`10.*^8"}], 
  RowBox[{"(*", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{
     RowBox[{"Min", "[", "fRepList", "]"}], ",", "10"}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"fRepMax", "=", "2.5000009`10.*^8", 
  RowBox[{"(*", 
   RowBox[{"SetPrecision", "[", 
    RowBox[{
     RowBox[{"Max", "[", "fRepList", "]"}], ",", "10"}], "]"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.456664947171875*^9, 3.4566649499375*^9}, {
   3.456665042671875*^9, 3.45666507275*^9}, {3.456665103265625*^9, 
   3.45666510571875*^9}, {3.456665200171875*^9, 3.45666520296875*^9}, {
   3.456691746078125*^9, 3.45669175240625*^9}, {3.536342589414125*^9, 
   3.536342618445375*^9}, {3.5366062423985*^9, 3.536606269101625*^9}, {
   3.536673100086*^9, 3.536673151445375*^9}, {3.536679707945375*^9, 
   3.536679725882875*^9}, {3.536683688101625*^9, 3.53668372074225*^9}, {
   3.5369246547956247`*^9, 3.5369246550456247`*^9}, {3.5372003428581247`*^9, 
   3.5372003561081247`*^9}, {3.5377186875620003`*^9, 
   3.5377186920307503`*^9}, {3.5377228732026253`*^9, 
   3.5377228764838753`*^9}, {3.5377945896870003`*^9, 
   3.5377945969526253`*^9}, {3.5378884679682503`*^9, 
   3.5378884728745003`*^9}, {3.5378886446870003`*^9, 
   3.5378886463745003`*^9}, {3.5378933335587473`*^9, 
   3.5378933356803513`*^9}, {3.537893370718013*^9, 3.5378933755228214`*^9}, {
   3.5379017917519245`*^9, 3.537901792812726*^9}, {3.5385833273276577`*^9, 
   3.538583332126932*^9}, {3.539116509315442*^9, 3.539116540281497*^9}, {
   3.539999589730731*^9, 3.539999598310731*^9}, 3.539999698417289*^9, 
   3.540065826867961*^9, 3.540065927064692*^9, 3.540077153730686*^9, {
   3.5404089194488587`*^9, 3.540408922466031*^9}, {3.5407407681303844`*^9, 
   3.5407408069313154`*^9}, {3.5407555285472527`*^9, 3.540755529530059*^9}, {
   3.540755617499023*^9, 3.5407556553136654`*^9}, {3.5409286744833994`*^9, 
   3.5409286909434032`*^9}}],

Cell[BoxData["2.500000002502500116825103759765625`10.*^8"], "Output",
 CellChangeTimes->{3.540847285558739*^9, 3.5408484917268476`*^9, 
  3.5408676825519896`*^9, 3.5408677382703023`*^9, 3.5408690576058292`*^9, 
  3.5409157375939655`*^9, 3.540918167966563*^9, 3.540927714568345*^9, 
  3.540928709821703*^9, 3.5409287479527464`*^9, 3.5409590214141684`*^9, 
  3.541042435010729*^9, 3.541044614809678*^9, 3.5410453495867476`*^9, 
  3.541096370603361*^9, 3.541304344719672*^9, 3.5413406968040504`*^9}],

Cell[BoxData["2.5000009`10.*^8"], "Output",
 CellChangeTimes->{3.540847285558739*^9, 3.5408484917268476`*^9, 
  3.5408676825519896`*^9, 3.5408677382703023`*^9, 3.5408690576058292`*^9, 
  3.5409157375939655`*^9, 3.540918167966563*^9, 3.540927714568345*^9, 
  3.540928709821703*^9, 3.5409287479527464`*^9, 3.5409590214141684`*^9, 
  3.541042435010729*^9, 3.541044614809678*^9, 3.5410453495867476`*^9, 
  3.541096370603361*^9, 3.541304344719672*^9, 3.5413406968040504`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fRepAvg", "=", 
  FractionBox[
   RowBox[{"fRepMin", "+", "fRepMax"}], "2"]}]], "Input",
 CellChangeTimes->{{3.456665192578125*^9, 3.456665212796875*^9}, 
   3.5400659248425646`*^9}],

Cell[BoxData["2.5000004512512500584125518798828125`10.*^8"], "Output",
 CellChangeTimes->{3.5408472855707397`*^9, 3.5408484917468476`*^9, 
  3.54086768266121*^9, 3.540867738285905*^9, 3.540869057621432*^9, 
  3.5409157376251717`*^9, 3.5409181679821653`*^9, 3.540927714599552*^9, 
  3.540928709852906*^9, 3.5409287479839497`*^9, 3.5409590214297686`*^9, 
  3.541042435041928*^9, 3.5410446148252783`*^9, 3.5410453496023474`*^9, 
  3.5410963706189613`*^9, 3.5413043447352724`*^9, 3.5413406968140507`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Modes", "Subsubtitle",
 CellChangeTimes->{{3.4566813895*^9, 3.45668139175*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1NomA", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n1NomB", "=", 
   RowBox[{"Round", "[", 
    FractionBox[
     RowBox[{"\[Nu]GndToInt", "[", 
      RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}], "fRepAvg"], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.456665238296875*^9}, {
  3.5404090137802544`*^9, 3.540409014676306*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n2NomA", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMinGnd", ",", "fMinFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMinGnd", ",", "fMinInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n2NomB", "=", 
   RowBox[{"Round", "[", 
    RowBox[{
     FractionBox["1", "fRepAvg"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Nu]GndToFin", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxFin"}], "]"}], "-", 
       RowBox[{"\[Nu]GndToInt", "[", 
        RowBox[{"fMaxGnd", ",", "fMaxInt"}], "]"}]}], ")"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.456665147765625*^9, 3.4566653128125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n1List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n1NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665618125*^9, 3.456665620609375*^9}, {3.5372066701081247`*^9, 
  3.5372066730768747`*^9}, {3.5377187815151253`*^9, 3.5377187956088753`*^9}, {
  3.5377946040932503`*^9, 3.5377946077338753`*^9}, {3.5377949385776253`*^9, 
  3.5377949450151253`*^9}, {3.537893207650926*^9, 3.537893217432143*^9}, {
  3.5385234618671618`*^9, 3.53852346744048*^9}, {3.538583211301021*^9, 
  3.5385832213905983`*^9}, {3.5403169380378237`*^9, 3.540316942063656*^9}, {
  3.5404089486965313`*^9, 3.540408953899829*^9}, {3.540408989700877*^9, 
  3.540408998262367*^9}, {3.540442631448593*^9, 3.540442639810139*^9}, {
  3.5408308072780704`*^9, 3.540830811168293*^9}, {3.5408471143803525`*^9, 
  3.5408471196326504`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1536909", ",", "1536910", ",", "1536911", ",", "1536912", ",", "1536913", 
   ",", "1536914", ",", "1536915", ",", "1536935", ",", "1536936", ",", 
   "1536937", ",", "1536938", ",", "1536939", ",", "1536940", ",", 
   "1536941"}], "}"}]], "Output",
 CellChangeTimes->{3.540847285585741*^9, 3.540848491776848*^9, 
  3.540867682692416*^9, 3.540867738317111*^9, 3.540869057652637*^9, 
  3.540915737656378*^9, 3.5409181679977674`*^9, 3.54092771463076*^9, 
  3.5409287098685083`*^9, 3.540928748015154*^9, 3.5409590214453692`*^9, 
  3.541042435073127*^9, 3.5410446148408775`*^9, 3.541045349633547*^9, 
  3.5410963706501617`*^9, 3.5413043447664733`*^9, 3.541340696834051*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n2List", "=", 
  RowBox[{"Union", "[", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomA", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"n2NomB", "+", "\[Delta]n"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Delta]n", ",", 
         RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]}], "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.456665383359375*^9, 3.45666546196875*^9}, {
  3.456665585125*^9, 3.45666558903125*^9}, {3.456665624328125*^9, 
  3.456665626734375*^9}, {3.5372066753268747`*^9, 3.5372066804518747`*^9}, {
  3.5377187866401253`*^9, 3.5377187978745003`*^9}, {3.5377946088901253`*^9, 
  3.5377946116245003`*^9}, {3.5377949469370003`*^9, 3.5377949552338753`*^9}, {
  3.5378932198813477`*^9, 3.537893225029357*^9}, {3.538523470201638*^9, 
  3.5385234737538414`*^9}, {3.538583224257762*^9, 3.5385832272179317`*^9}, {
  3.54031694356164*^9, 3.540316948430088*^9}, {3.5404089555279226`*^9, 
  3.5404089605492096`*^9}, {3.5404089910619545`*^9, 3.540408996635274*^9}, {
  3.5404426567672305`*^9, 3.5404426647075796`*^9}, {3.5408308137214394`*^9, 
  3.5408308171686363`*^9}, {3.5408471103811274`*^9, 3.540847112063222*^9}, {
  3.5409181364659233`*^9, 3.5409181420358725`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1545004", ",", "1545005", ",", "1545006", ",", "1545007", ",", "1545008", 
   ",", "1545009", ",", "1545010", ",", "1545011", ",", "1545012", ",", 
   "1545013", ",", "1545014"}], "}"}]], "Output",
 CellChangeTimes->{3.5408472855957413`*^9, 3.5408484917968473`*^9, 
  3.5408676827080193`*^9, 3.540867738332714*^9, 3.5408690576682396`*^9, 
  3.540915737671981*^9, 3.5409181680133696`*^9, 3.5409277146463633`*^9, 
  3.540928709899712*^9, 3.5409287480307555`*^9, 3.54095902146097*^9, 
  3.541042435088726*^9, 3.5410446148564773`*^9, 3.541045349649146*^9, 
  3.541096370665762*^9, 3.541304344782074*^9, 3.541340696844051*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Comb Equation", "Subsubtitle",
 CellChangeTimes->{{3.456681410328125*^9, 3.456681413015625*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Omega]L", "[", 
    RowBox[{"n_", ",", "fR_", ",", "f0_"}], "]"}], ":=", 
   RowBox[{"2", " ", "\[Pi]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"n", " ", "fR"}], "+", "f0"}], ")"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.456678515171875*^9, 3.45667856759375*^9}, {
   3.4566795630625*^9, 3.45667956609375*^9}, 3.541304106718444*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Integrate 2-photon Lineshape over Doppler Distribution", "Subtitle",
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"transProb", "[", 
    RowBox[{"\[Omega]1_", ",", "\[Omega]2_", ",", "v_"}], "]"}], "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"fDPrime", "=", "fMinFin"}], "fMaxFin"], 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"f", "=", "fMinGnd"}], "fMaxGnd"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"], "/", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "\[Pi]", " ", 
              RowBox[{"\[Nu]GndToFin", "[", 
               RowBox[{"f", ",", "fDPrime"}], "]"}]}], "-", 
             RowBox[{"\[Omega]1", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["v", "c"]}], ")"}]}], "-", 
             RowBox[{"\[Omega]2", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                FractionBox["v", "c"]}], ")"}]}]}], ")"}], "2"], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Gamma]Fin", "+", "\[Gamma]T"}], ")"}], "2"], "4"]}], 
         ")"}]}], "\[IndentingNewLine]", 
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "f"}], "+", "1"}]], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"m", "=", 
          RowBox[{"-", "f"}]}], "f"], 
        RowBox[{
         UnderoverscriptBox["\[Sum]", 
          RowBox[{"mDPrime", "=", 
           RowBox[{"-", "fDPrime"}]}], "fDPrime"], 
         SuperscriptBox[
          RowBox[{"Abs", "[", 
           RowBox[{
            UnderoverscriptBox["\[Sum]", 
             RowBox[{"fPrime", "=", "fMinInt"}], "fMaxInt"], 
            RowBox[{
             UnderoverscriptBox["\[Sum]", 
              RowBox[{"mPrime", "=", 
               RowBox[{"-", "fPrime"}]}], "fPrime"], "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], "2"], "/", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[ImaginaryI]", " ", 
                    RowBox[{"(", 
                    RowBox[{"\[Gamma]Int", "+", "\[Gamma]T"}], ")"}]}], "2"], 
                  "+", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"\[Omega]1", 
                    RowBox[{"(", 
                    RowBox[{"1", "+", 
                    FractionBox["v", "c"]}], ")"}]}], "-", " ", 
                    RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"\[Nu]GndToInt", "[", 
                    RowBox[{"f", ",", "fPrime"}], "]"}]}]}], ")"}]}], ")"}]}],
                ")"}], 
              SubscriptBox["dGndToInt", 
               RowBox[{"f", ",", "fPrime", ",", "m", ",", "mPrime"}]], 
              SubscriptBox["dIntToFin", 
               RowBox[{
               "fPrime", ",", "fDPrime", ",", "mPrime", ",", 
                "mDPrime"}]]}]}]}], "]"}], "2"]}]}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"fnToIntegrate", "[", 
     RowBox[{"fR_", ",", "fOffset_", ",", "v_"}], "]"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n1", "=", "1"}], 
      RowBox[{"Length", "[", "n1List", "]"}]], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"n2", "=", "1"}], 
       RowBox[{"Length", "[", "n2List", "]"}]], 
      RowBox[{
       RowBox[{"dopplerDist", "[", "v", "]"}], 
       RowBox[{"transProb", "[", 
        RowBox[{
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n1List", "\[LeftDoubleBracket]", "n1", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", 
         RowBox[{"\[Omega]L", "[", 
          RowBox[{
           RowBox[{
           "n2List", "\[LeftDoubleBracket]", "n2", "\[RightDoubleBracket]"}], 
           ",", "fR", ",", "fOffset"}], "]"}], ",", "v"}], "]"}]}]}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vIntSpec", "[", 
    RowBox[{
     RowBox[{"fRep_", "?", "NumericQ"}], ",", 
     RowBox[{"fO_", "?", "NumericQ"}]}], "]"}], ":=", 
   RowBox[{"NIntegrate", "[", 
    RowBox[{
     RowBox[{"fnToIntegrate", "[", 
      RowBox[{"fRep", ",", "fO", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "60000"}], ",", "60000"}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "3"}], ",", 
     RowBox[{"MaxRecursion", "\[Rule]", "10"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "4"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "2"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.538523548469115*^9, 3.5385235524603434`*^9}, {
   3.5385832601238136`*^9, 3.538583261230877*^9}, {3.540847166270197*^9, 
   3.5408472100906262`*^9}, 3.54086740804832*^9, {3.5409155921115932`*^9, 
   3.5409155942492046`*^9}, {3.5409156534625893`*^9, 
   3.5409156579562535`*^9}, {3.5409277065480433`*^9, 3.540927707515473*^9}, {
   3.54130414060273*^9, 3.54130415309873*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculation", "Subtitle",
 CellChangeTimes->{{3.456681446140625*^9, 3.45668144753125*^9}, {
  3.5379007941050625`*^9, 3.537900798020669*^9}},
 FontColor->RGBColor[0, 0.356863, 0]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\[Delta]f", "=", "0.25"}], ";", "\[IndentingNewLine]", 
   RowBox[{"fr", "=", "fRepMin"}], ";", "\[IndentingNewLine]", 
   RowBox[{"fRepList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"specList", "=", 
    RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"While", " ", "[", 
    RowBox[{
     RowBox[{"fr", "<", "fRepMax"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"fRepList", "=", 
         RowBox[{"Append", "[", 
          RowBox[{"fRepList", ",", "fr"}], "]"}]}], ";"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"fr", "+=", "\[Delta]f"}]}], "}"}]}], "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{
  3.456746939*^9, {3.5372003913424997`*^9, 3.5372003937643747`*^9}, {
   3.5378885919057503`*^9, 3.5378885935932503`*^9}, {3.537901719773398*^9, 
   3.53790172663741*^9}, 3.5379017983975363`*^9, 3.5385235615778646`*^9, 
   3.538524008413422*^9, {3.540084191217308*^9, 3.540084192215779*^9}, {
   3.5404312691628485`*^9, 3.5404312717524157`*^9}, 3.540442442814602*^9, 
   3.5407025017734547`*^9, {3.5407026235704803`*^9, 3.5407026296252203`*^9}, {
   3.540702675519525*^9, 3.54070268427393*^9}, {3.5407027381267853`*^9, 
   3.54070277665553*^9}, {3.54070280955087*^9, 3.540702809784945*^9}, {
   3.5407389381466312`*^9, 3.540738941202806*^9}, {3.5409287368129897`*^9, 
   3.5409287396213317`*^9}, {3.541304160727375*^9, 3.541304162958246*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"rFrep", "=", 
   RowBox[{"Min", "[", "fRepList", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tt", "=", 
    RowBox[{"AbsoluteTime", "[", "]"}]}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "distribute", " ", "NIntegrate", " ", "among", " ", "CPU", " ", "cores"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"specList", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetSharedVariable", "[", "specList", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ParallelDo", "[", 
   RowBox[{
    RowBox[{"AppendTo", "[", 
     RowBox[{"specList", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
          "fRepList", "\[LeftDoubleBracket]", "kk", "\[RightDoubleBracket]"}],
           "-", "rFrep"}], ")"}], ",", 
        RowBox[{"Chop", "[", 
         RowBox[{"vIntSpec", "[", 
          RowBox[{
           RowBox[{
           "fRepList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}], ",", 
           RowBox[{
           "fOffsetList", "\[LeftDoubleBracket]", "kk", 
            "\[RightDoubleBracket]"}]}], "]"}], "]"}]}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"kk", ",", 
      RowBox[{"Length", "[", "fRepList", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ttt", "=", 
   RowBox[{
    RowBox[{"AbsoluteTime", "[", "]"}], "-", "tt"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<Execution time = \>\"", ",", "ttt"}], "]"}]}], "Input",
 CellChangeTimes->{{3.54070250837437*^9, 3.54070253128251*^9}, {
  3.5407340715472775`*^9, 3.540734075324494*^9}, {3.5413041712733126`*^9, 
  3.541304242973211*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Execution time = \"\>", "\[InvisibleSpace]", 
   "733.6170344`10.317014400481858"}],
  SequenceForm["Execution time = ", 733.6170344`10.317014400481858],
  Editable->False]], "Print",
 CellChangeTimes->{3.5410461421607056`*^9, 3.541097173322107*^9, 
  3.5413051252713614`*^9, 3.541341430691086*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Sort", "[", "specList", "]"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input"],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJw1WHlczekXvlESNZWiRXTbpH3fl/u073W7S8hSyG4ma/kx42aGJsNISWIk
ZBl7KUlomximiRAV2rUIU4pQ6v66vif/+Dyf5z3nOc97zvve95vOkljesnEs
FmulFIsl+X/sn+mr5P9u2NmCQdWcQ5et49ccspLg0gefmjjJ/0v/MYhjLsHR
nUOdHPP8pLIZbUaEezhBU2X3+NnOkuCc/uF+jtXmQ3drTfUIf+Kcm1F6qC+H
LcF1X0aGOFLtYnftFTMIizlmyfNavqpqSvDbH8VSMLodEzsjTo348XiYOfcT
b8NUwjIIqBAlO5epEJaFh+Ob1y+tplC8HB4Nvny8daYy4ckwmGWYcD5ESYKV
fmF9h5ab+m46Q4oSnOTBUoK/2ZFxNj6KtF4Jye+k/kgc/I72YwrYPxVuLNEc
46dgZF/SpVsXFIlXxZ8ytYXZi5SIV0VFldZ/spbKxE+Dqd+03cdNv9UXVyye
hkOLdpSVNqoQVkP1gyWmiW1TCavjSNSG8o5t6oQ1IBzHDn57Yzrlm4475u7H
V+VqE9aC+uv1SxyNdGm9FvblXc7/+4A+4Rk4x34myphmSPXNxPpwncZj6kaE
teEY+M/SrqXGzHoRG1r/5qc4aZtIcAWbpYPUgg3mDpxvvEuTSAfXgy65qMfM
pvw6MOZ5P6vqMKB4XXB3ZtR2Mv0f5XXRW1AZpJvEpng9xJi7DA2HaVH9+rD7
5VRDPEedeH2ksXYP6zepUrw+Hqls9OZp0f6JDFDRhrVSzP6P8gYY1DX72t03
meJnYeZWdVfjjokMFs+CSua8v+UXTaB4Q/yw+ZjzO0hL8NVMsSHMYOxVGj+O
qSdhNlaczvnrYi+L4mdDzvZgk1Ao5jDxRjA2npg0x3yYwWIjtHbI//OeN8Rh
9I1xUnulfV3BFw6T3xiHB4/I/sr/zGHym8BmOPjSTfVPFG8C+4akp7EKA8Sb
4l60jM0vsz8Sb4pMbcMDLIsPpG+G4Oo4z8dF/cSb4c6kSc6vrfsZPZE5rAs7
8spu9zH1iM1R8cetuNDa95TfAm/mVKy3mT7GWyD3FXuPz1sJn5DZw7FE5OIR
hbgThEWWMM/77CP1kOJLLdFZdYn1SwvxYkusa7jrHqfSx/CwQqvLMsPC+YQT
rHBqRdGDvvJvuP5BiRUmOk+59EKnn+Kt8PFv6dse/YQ51vgs4zJH/cEH0rdG
7Ltds43bP5K+NaSLbQK7nD9R/dbwPOJ/NK2L9hc2kKvc+Gfsm0Hqhw02H3Kf
Y7pqmMlXYgPWg9t1l11ZNH+28F/OyavXkfRfom+LYyt3fvjMk2awyBaaa/ir
pzvIMutLbbHnSvm+622TKN4Oek0fYpKc6D6AHezjFnt1NtD5T7DD59SgT+8n
TmXyldghJMvvL7MhNYq3h+8vKq/ZOZqkb4+OwgUT6oq0SN8eq/N7LQpOf7sv
lyiV2qPX9UC9rAdhlgM2Ku4/qHh6OsU7YOX0fBNbPQ1822+RA4o2C51rbaZR
/Q5of/7b+SJzFdJ3xES//Acb1ytR/Y5Y9EZLb6GaPMU7Qlw/+3tjDTpPJY4Y
l/dYQ/qeNJ0PR4yE/m24WWVs/5xw8GLF1rhrYuqfE6pm6m259t1X6p8TDHPd
PONVvzCY5Yz+OZeSPNMHmH5xnHG/vnZHScJY/51RpF6cW3OL5rXEGX+6Ltk2
3uPbPI76d8F68+CuqW97KN4FNTO6xddz3lG8C+LOvle8+8cb0neBw+PUmt9n
dtP8jWLtbMUT57po/lzRFqOyyHthJ8W7Yson67ACkw6Kd0WpTWQke3Y71e8G
0z9XWHm7vaL5c8ME+dSRh4vaKN4Nz5fw605lt1K8GzJ6ZnUPjLTQ/LrB7kWe
jFx0C8W7o+brssLip82MvwR3ZDsPfLmJZvLvDt29D/T7Mpqofne8t2ezDDob
mfXgoK/1e9tM00Y6fxyk1M7RivtfA80/B9Vb3O5Orn1J9QP6tdMaEtwkePTn
XhswcZh/pfbiC6oHSNt/Ku2T2QuGjwK4UouuPk1/TvkB6evbDnrsr2fyZwEb
V2YYFrXXM+tLgPjU9Ctu1+qZ9c3A56BjO047EGZ5YPjV8agXA3UMZntg/8Kj
+Tdy6qgfHigNqpxlOlRL+h64o89pMMgnLPJAdXCx0dmfa5n44x7Ypm7005JH
37DVxFIP1C8/3591jvhmD5ypr5tR+PIZ6XsCGjHBN28+I/+euPPg49I/Mglz
PGF2YZzX8p9ofbQnpvisU+0WEi/yxO7nI3ZPYiQ4YW1nlidWqJntNgil9aWe
qMyVT9ylTPU2eSKYbybwUiUs9oTaWq32eFWqj+2FA2kdbUdn1JJ/L5zq0pYb
MiE+2gt74roVyjjEi7xQO0/z6b2IMf9emCptcBObiC/xwobyhVvnrxvT94LG
9o7lfUfG9L0gkD1df7drTN8btvApOKNTR/698WT6kozvI6k/0d6o7Ex/tfww
9Ufkja60LYefN9L6LG8ozVy6YdeFsf57YzBp66MBEeEmb7QHqyTUN4313wez
WIJ8G4/nTD5tH+jvfet8N/c56fsgMmruLUu7sfnzwf2UU5oLrtN8JvjAc2a/
zfdcmt8sHxyK+i07R3Zs3n3QZDKvNbeygfR94H57KWv18Uby74P8R4uwO53O
k7Yvzl8Vpm0UNtP8+8K3982WC52Eo33h9CQ2tfY8ndcEX+wZsbrTt62Vmbfj
vsgJ2pjWtq6N/PtiW3CoXGnyK9L3RdT7uXk7JnSQvi8C7i24u/VgJ82fH6ZU
BZxWm/ua/PthT61T/4YtdH9F+2HiKes1j6L+o/nzwwmTn+Oa7/WSfz9UTFiQ
n5rRR/79kJ0ov0Pd9wPNvx944+q+OmyS3LcYvX/8cMakXSpM8zPp+0PH3SiR
D7qf4Y+dH8MFctcJR/vDuliRfXvbF9L3h/uz8I7fb9Dv73F/KMS9mbXr2ifS
98cyXtLBgYv0vmn2x89P3A9H1n8k//4ocnP21oz8SPsfgGsZsZdaZ9HvPQKQ
nPLq6iQf4qMCUNbV0gDuAM1fAPa+mTz++E7SywpAyA8vLIdNqL6SAKTci5wi
5zdE+x+AZ51r53TlDJN+APonKxQaKkveAxL/gUjtDtZLLCHMCYTm3LJ6Ln8c
g6MCofJ++8zydAke7XdCIKIvlBVf2El8ViBO/v7cBGqESwLRUj93daJAisFN
gUjxW1y9d74k/+h9IQ7Evp+WzO+9O0L7H4SkjIxgB9Vh8h+E7w6WnxhfPUT+
g9CV0hL0pzv5EQXhnfOCM38lDVL/gzDpiEBZX2aI7p8gOL7YMtBUPMjMZ3MQ
cgLX8OJ4FC8OwjPO00meNl+Z+0s7GKyReWXN8+m9xAlGQZ7Yf3fNCOkHIzES
u/TD6P2UEAyR6768hmsSf5L9D4ZKRZPzr7njGFwSjMbj3r+xnaWZ9c3B0J0s
zhd/N4HhxcHYFNi9fbPTRNr/EBSsO7+2TXky7X8ItC+c6LTuVmD2KyoEb47U
6Rx6osTwohBwz/mstdNUYfisEFQYFrdGdUxl9EpDUHU+LsdNXoPRawpBQ7Hc
dUPuDCZeHILylo6a9mAd0g9F68ivBR+W6jPxCMWZv5dm3x83m/RDcZQ9uO2M
pimTTxQK25Rlw/H2luQ/FNE5mpu26Vsz81EaiieOlXsbn9tQ/0NhvuppJbdo
7Hs7DKs98xasOGhL+mH47dHZo20pNkw+ThisdPeafW2wYvJFh6HpiX3b+lSL
UYzR90EYlss1Jz30NaH5C4OT7J6A/wIMaf7CIPWrVbrvXT3yH4Z9iR/1ttey
yX8YsnffmGfVIHlvjn7OK3Kh4fBlpKVHncHaXLSdXNw9UD6VwRZclMYuS5hs
Re9HcCGKb7wZo6rM8GFchNoln9a/TN/P0VyYjLgax1dTP2O5CNxZFMtaJyep
v6BfxEW/Szqfe5Xe1/u5MHx0s+ZElQz54cLTajGnMFaayX+FC9mn8gXFAePJ
HxeH9WIMbgvHMfxDLnjbWeaTXOn8NXHhOyvvcVAdzWsvF5ysC4PL54y9/8Mh
o7vhxctGyXtV4j8cCqrr9uh5ien3MBzFC//ZtKJuhOEtwmHWl73E99gInc9w
mBeUfe+ZRnxYOIyv/tFkfJn46HCEuapWzTtC5zs2HOVXt/dXyZKeKByRLuZu
Gp/FDJ8cjs0u+Ss3xdD9kxWOTP0d7JmtVG9OOHT+bemZskWK8VsSDoMvO87+
ZTnmPxzHS6vOdcjT/jSFI66sUSXJSoIT1KV7w5FbbbRuIID2VxyOhTXtKgV5
E6j/PAxqDTzMmDuRWc/mYRfrpNidS987ljx8vBZSq3ZSnlnP4WFKr5XT8GVF
6j8PCSfXy5/6QZmJj+Zhi3/n/ZI0ybywd72J5WFholLMKnn6HkngYWhNw9OT
ShrUfx4SZQRnxxdokX8egg6IIip5bOo/D4W3lyZ9fKVL/nn492lnxpRXBuSf
h4icJw+ST89mcBMPdxUsVi7dZMrk6+HhQxXvB/cYC4YX8/BoqFzccdWS/PNx
tEltp5q3Fc0/H2Gr7ij06RK24ONe+v9qdu2m9Rw+fBo1UsoElC+Mj7KvMkbr
E83IPx8dx3Ica/RNGD6Wjy4d5/uTso3JPx+LLEJTy8MI7+cj5v4LeYVpVG8W
HwW3D5VnVpmRfz4O2xf8VOlI+iV8TK+JaGj/RPU95EOu9WjHuR4bJl8zH2rW
bV2T7e2Z89bDxz+eRbeW2ziSfz7e35TS9U93YvQUBTjT8vhl7uh3GeNfANnU
8NphnhP1X4BT/10qsM51IP8CWGhFLjVYZsfEhwlgY2dXtbramuGjBPhxZ1Za
pjvVGyuA/emKbF497YdIAF+NK9baLwyZ+pIFMISKwtA+ffIvgKmM5eaupzrk
X4DJ7ArnrW70969SAbp5x+Kfn51O/gV45huepVVG91eTAIrPJtUlr6J56xXg
88UvFvdFqnT+hTjaGvpl3UQV6r8QUpX3gm89U2b0tYWIN03ZOe2dElOfhRBJ
iceXKWPse1mIGwOuFU/SxuZfiMIjF/W/TCMcJcTNl9wNu6Xp7wPrhNhqIlMz
fR/xIiE+qJYeqAxVYnCyEENWLy/+fJ9wlhBp2gjbcV+Z0b8iRGVXZupTWbp/
S4V4/Dlo8G21KjNv1UIkjpQ7v9VSo/MvxIbT4zuOsDWZfD1C3Gpu6Dp4cgb5
jwBfK+n+uw90vhQjUD7T2/XtMj2GZ0dAquvBhdK/DJj8lhF40nKwW0OFzhcn
AgPL15xbHGlE/iNQ/Xq5ZZ4ezXN0BPb92KOeGGlM/Y+Afvvj/rQJRvg/fuCy
nQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.541305125333763*^9, 3.541341430791086*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"oFile", ",", "specList", ",", "\"\<Table\>\""}], "]"}]], "Input",
 CellChangeTimes->{{3.5407341385971127`*^9, 3.5407341395851693`*^9}, 
   3.5407369804783897`*^9, {3.5407408204110117`*^9, 3.54074082112868*^9}, {
   3.5409287025980225`*^9, 3.540928705687199*^9}, {3.54095815347406*^9, 
   3.5409581575770445`*^9}, {3.5410424188028483`*^9, 
   3.5410424205499926`*^9}, {3.5413043669035826`*^9, 
   3.5413043691968565`*^9}, {3.5413050739928465`*^9, 3.5413050754748845`*^9}, 
   3.5413051944747357`*^9}],

Cell[BoxData["\<\"C:\\\\Users\\\\FClab\\\\Rb_DFCS_data\\\\calculation\\\\Rb87_\
5D32.txt\"\>"], "Output",
 CellChangeTimes->{3.54130519502075*^9, 3.541341430821086*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1272, 684},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
CellContext->Notebook,
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.25, 1.25 Inherited],
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 460, 13, 80, "Input"],
Cell[1008, 35, 3433, 83, 322, "Input"],
Cell[CellGroupData[{
Cell[4466, 122, 76, 1, 62, "Subtitle"],
Cell[4545, 125, 37, 0, 35, "Subsubtitle"],
Cell[4585, 127, 148, 5, 35, "Input"],
Cell[CellGroupData[{
Cell[4758, 136, 40, 0, 35, "Subsubtitle"],
Cell[4801, 138, 223, 8, 37, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5061, 151, 107, 1, 35, "Subsubtitle"],
Cell[5171, 154, 330, 10, 37, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5550, 170, 75, 1, 62, "Subtitle"],
Cell[5628, 173, 102, 1, 62, "Subtitle"],
Cell[5733, 176, 149, 2, 35, "Subsubtitle"],
Cell[5885, 180, 327, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[6237, 191, 105, 1, 35, "Subsubtitle"],
Cell[6345, 194, 711, 15, 54, "Input"],
Cell[CellGroupData[{
Cell[7081, 213, 236, 4, 35, "Input"],
Cell[7320, 219, 537, 8, 35, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[7906, 233, 101, 1, 35, "Subsubtitle"],
Cell[8010, 236, 219, 6, 35, "Input"],
Cell[8232, 244, 167, 5, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8448, 255, 106, 1, 62, "Subtitle"],
Cell[8557, 258, 222, 3, 35, "Subsubtitle"],
Cell[8782, 263, 307, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[9114, 274, 199, 3, 35, "Subsubtitle"],
Cell[9316, 279, 282, 7, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9635, 291, 109, 1, 35, "Subsubtitle"],
Cell[9747, 294, 301, 8, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10085, 307, 389, 5, 35, "Subsubtitle"],
Cell[10477, 314, 925, 17, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11439, 336, 413, 6, 35, "Subsubtitle"],
Cell[11855, 344, 554, 9, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12458, 359, 115, 1, 62, "Subtitle"],
Cell[12576, 362, 249, 3, 35, "Subsubtitle"],
Cell[12828, 367, 328, 7, 53, "Input"],
Cell[CellGroupData[{
Cell[13181, 378, 199, 3, 35, "Subsubtitle"],
Cell[13383, 383, 357, 8, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13777, 396, 115, 1, 35, "Subsubtitle"],
Cell[13895, 399, 347, 9, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14279, 413, 252, 3, 35, "Subsubtitle"],
Cell[14534, 418, 695, 16, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15266, 439, 315, 4, 35, "Subsubtitle"],
Cell[15584, 445, 1180, 21, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16801, 471, 350, 5, 35, "Subsubtitle"],
Cell[17154, 478, 1008, 18, 35, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18199, 501, 371, 5, 35, "Subsubtitle"],
Cell[18573, 508, 1010, 18, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19632, 532, 155, 2, 62, "Subtitle"],
Cell[19790, 536, 240, 3, 35, "Subsubtitle"],
Cell[20033, 541, 401, 8, 53, "Input"],
Cell[CellGroupData[{
Cell[20459, 553, 199, 3, 35, "Subsubtitle"],
Cell[20661, 558, 478, 9, 53, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21176, 572, 104, 1, 35, "Subsubtitle"],
Cell[21283, 575, 347, 9, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21667, 589, 293, 4, 35, "Subsubtitle"],
Cell[21963, 595, 830, 17, 53, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22842, 618, 139, 1, 62, "Subtitle"],
Cell[22984, 621, 175, 2, 35, "Subsubtitle"],
Cell[23162, 625, 442, 15, 35, "Input"],
Cell[23607, 642, 1602, 47, 64, "Input"],
Cell[25212, 691, 2297, 53, 234, "Input"],
Cell[CellGroupData[{
Cell[27534, 748, 57, 0, 35, "Subsubtitle"],
Cell[27594, 750, 1384, 45, 88, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29015, 800, 97, 1, 35, "Subsubtitle"],
Cell[29115, 803, 1254, 33, 135, "Input"],
Cell[30372, 838, 1184, 32, 111, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31593, 875, 115, 1, 35, "Subsubtitle"],
Cell[31711, 878, 2134, 54, 327, "Input"],
Cell[33848, 934, 2166, 55, 349, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36063, 995, 89, 1, 62, "Subtitle"],
Cell[36155, 998, 816, 19, 83, "Input"],
Cell[36974, 1019, 356, 10, 53, "Input"],
Cell[37333, 1031, 288, 9, 56, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37658, 1045, 73, 1, 62, "Subtitle"],
Cell[37734, 1048, 39, 0, 35, "Subsubtitle"],
Cell[37776, 1050, 675, 13, 60, "Input"],
Cell[CellGroupData[{
Cell[38476, 1067, 102, 1, 35, "Subsubtitle"],
Cell[CellGroupData[{
Cell[38603, 1072, 1983, 36, 58, "Input"],
Cell[40589, 1110, 496, 6, 35, "Output"],
Cell[41088, 1118, 470, 6, 35, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41595, 1129, 206, 5, 53, "Input"],
Cell[41804, 1136, 500, 6, 35, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[42353, 1148, 90, 1, 35, "Subsubtitle"],
Cell[42446, 1151, 558, 16, 99, "Input"],
Cell[43007, 1169, 833, 25, 99, "Input"],
Cell[CellGroupData[{
Cell[43865, 1198, 1318, 28, 35, "Input"],
Cell[45186, 1228, 712, 12, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45935, 1245, 1424, 29, 35, "Input"],
Cell[47362, 1276, 664, 11, 35, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48075, 1293, 102, 1, 35, "Subsubtitle"],
Cell[48180, 1296, 392, 10, 35, "Input"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48621, 1312, 112, 1, 62, "Subtitle"],
Cell[48736, 1315, 5304, 138, 399, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54077, 1458, 185, 3, 62, "Subtitle"],
Cell[54265, 1463, 1506, 30, 168, "Input"],
Cell[CellGroupData[{
Cell[55796, 1497, 1785, 52, 190, "Input"],
Cell[57584, 1551, 347, 7, 27, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57968, 1563, 211, 5, 35, "Input"],
Cell[58182, 1570, 5742, 99, 303, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63961, 1674, 549, 9, 35, "Input"],
Cell[64513, 1685, 168, 2, 35, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
